home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_89-02_1989_-_de_Side_B.d64 / ohg main (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  31KB  |  905 lines
  1. 3 ifb>1then9006
  2. 4 fork=1to13:reada$:next:goto11
  3. 5 data a,januar,februar,maerz,april,mai,juni,juli,august,september
  4. 6 data oktober,november,dezember
  5. 11 fori=0to15:pokev+i,0:next
  6. 12 fori=1024to2023:pokei,0:next
  7. 21 print"[147]":poke53280,q:poke53281,8:v=53248:pokev+21,0
  8. 22 input"[158] wieviele mitspieler (1-4)";m
  9. 23 ifm<1orm>4then21
  10. 24 pl=m:m=m-1:fori=0tom:print" name von spieler nr"i+1"";:inputn$(i):nexti
  11. 25 print" ist alles korrekt (j/n)
  12. 26 [161]a$:[139]a$[178]"j"[167]900
  13. 27 [139]a$[178]"n"[167]21
  14. 28 [137]26
  15. 900 a[178][171]1:mu(0)[178]1:mu(1)[178]1:mu(2)[178]1:mu(3)[178]1
  16. 904 c[178]20000:ge(0)[178]c:ge(1)[178]c:ge(2)[178]c:ge(3)[178]c
  17. 910 ja(0)[178]1970:ja(1)[178]1970:ja(2)[178]1970:ja(3)[178]1970
  18. 911 mo(0)[178]1:mo(1)[178]1:mo(2)[178]1:mo(3)[178]1
  19. 949 a[178]a[170]1:[139]a[178]pl[167]a[178]0
  20. 950 re(a)[178][181](80[172][187](1))[170]1:ra1(a)[178]re(a):ra1(a)[178]ra1(a)[172]200:ra1(a)[178]ra1(a)[170]wa1(a)
  21. 951 vr(a)[178][181](40[172][187](1))[170]15
  22. 952 vr(a)[178]vr(a)[173]100:t[178]ra1(a):t[178]t[172]vr(a):ra1(a)[178]ra1(a)[171]t
  23. 953 wa1(a)[178]ra1(a):wa1(a)[178][181](wa1(a))
  24. 960 w1(a)[178][181](250[172][187](1))[170]400:w1(a)[178]w1(a)[171]re(a)[172]5:w1(a)[178]w1(a)[173]100
  25. 969 zn(a)[178][181](20[172][187](1))[170]5:[139]ge(a)[177][178]0[167]971
  26. 970 c[178]zn(a):d[178]ge(a)[172]c[173]100:ge(a)[178]ge(a)[170]d:ge(a)[178][181](ge(a))
  27. 971 o1(a)[178][181](21[172][187](1))[170]15
  28. 972 d1(a)[178][181](5[172][187](1))[170]1
  29. 973 z1(a)[178][181](9[172][187](1))[170]5:[141]978:[137]982
  30. 978 f[178]0:f[178]dp(a)[172]1000:f[178]f[170]tp(a)[172]1500:f[178]f[170]ta(a)[172]6000:f[178]f[170]ol(a)[172]5000:j[178]f:f[178]f[172][171]1
  31. 979 ji[178]j:[142]
  32. 982 [139]j[177]50000[167]mu(a)[178]1.5
  33. 983 [139]j[177]100000[167]mu(a)[178]2
  34. 984 [139]j[177]150000[167]mu(a)[178]2.5
  35. 985 [139]j[177]200000[167]mu(a)[178]3
  36. 986 [139]j[177]300000[167]mu(a)[178]3.5
  37. 987 [139]j[177]400000[167]mu(a)[178]4
  38. 988 [139]j[177]500000[167]mu(a)[178]5
  39. 989 [139]j[177]600000[167]mu(a)[178]6
  40. 990 [139]j[177]700000[167]mu(a)[178]7
  41. 991 [139]ge(a)[179]f[167]10000
  42. 999 [151]53265,65:[151]53269,255
  43. 1000 [153]"load":[151]53248[170]22,24:[151]53282,0:[151]50173,22
  44. 1001 [151]50174,22:[151]50175,22:[129]i[178]43[164]46:[151]v[170]i,10:[130]:[151]v[170]27,244
  45. 1002 [151]v[170]29,240:[151]v[170]11,50:[151]v[170]13,50:[151]v[170]15,50:[151]v[170]23,12
  46. 1003 [151]v[170]10,137:[151]v[170]12,185:[151]v[170]14,233:[151]v[170]39,1:[151]53283,12
  47. 1004 [151]50171,22:[151]50170,22:[151]v[170]41,8:[151]v[170]42,6:[151]v[170]4,40:[151]v[170]5,114
  48. 1005 [151]v[170]6,40:i[178]100000[173]wa1(a):j[178]32[173]i:[151]v[170]7,114[171]j:[151]50168,18:[151]v[170]21,255
  49. 1006 [151]v[170]2,111:[151]v[170]3,101:[151]50169,19:[151]v[170]28,2:[151]v[170]40,1:[151]53285,3
  50. 1010 mo(a)[178]mo(a)[170]1:[141]7000
  51. 1013 [153]"  right$mid$(NULL)wait"
  52. 1014 [153]" def(NULL)(NULL)(NULL)(NULL)(NULL)wait"
  53. 1015 [153]" stopleft$waitforspc(spc(spc(chr$waitopensie besitzen :   syserdoel : 00000 (NULL)
  54. 1016 print" [144][200][146][129][166][166][166][199][146]  [210][210][210][210][210][210][146]         [158]wasser : 00000 [255]
  55. 1017 [153]" stopleft$waitforspc(spc(spc(chr$wait left$open      stopchr$wait    sysdattelobst : 00000 t
  56. 1018 print" [144][200][146][129][166][166][166][199][146] [129][200][211][211][151][212][213][214][146] [144][199][146]    [158]zigaretten : 00000
  57. 1019 [153]" stopleft$atnpeeklenchr$wait stopleft$print(NULL)(NULL)(NULL)orsinlogstopchr$wait     sysvermoegen $
  58. 1020 print" [144][200][196][197][198][199][146] [200][153][172][177][187][165][180][162][144][199][146]
  59. 1021 [153]" stopleft$atnpeeklenchr$wait left$printintgetlistabsthenprint+posstopchr$wait   openwasserpreis : $
  60. 1022 print" [144][200][196][197][198][199][146] [200][155] [175][171] [171][175][144][199][146]   [159]dattelpreis : $
  61. 1023 [153]" stopleft$atnpeeklenchr$wait  (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)wait  open1 stange zig. : $
  62. 1024 print" [144][200][196][197][198][199][146]ihre firma [159]1 barrel oel : $
  63. 1025 [153]"stop*sysgefallener regen   verkauf    stopankauf
  64. 1026 print" [158]betrug :
  65. 1027 [153]"                   sys_ oel      _ oel
  66. 1028 print"[144]*[158]schuldenzins      [158]# datteln  # wasser
  67. 1029 [153]"                   sys^ zig.     ^ zig.
  68. 1030 print"[144]*[158]verluste durch    [144][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][146]
  69. 1031 [153]" sysverdunstung      stopleft$waitmit sysjoy.\ aussuchenstopchr$wait
  70. 1032 printtab(19)"[144][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][146]"
  71. 1033 print"[158]  durch f1 [158]werden alle guter verkauft"
  72. 1034 x=33:y=2:gosub9999:print"[144]weiter";
  73. 1049 x=35:z=195
  74. 1050 ifoe1(a)>9thenx=34:z=194
  75. 1051 ifoe1(a)>99thenx=33:z=193
  76. 1052 ifoe1(a)>999thenx=32:z=192
  77. 1053 ifoe1(a)>9999thenx=31:y=4:gosub9999:print""oe1(a)"";:goto1059
  78. 1054 y=4:gosub9999:print""oe1(a)"";:poke49152+z,48:poke55296+z,1
  79. 1059 x=35:z=235
  80. 1060 ifwa1(a)>9thenx=34:z=234
  81. 1061 ifwa1(a)>99thenx=33:z=233
  82. 1062 ifwa1(a)>999thenx=32:z=232
  83. 1063 ifwa1(a)>9999thenx=31:y=5:gosub9999:print""wa1(a)"";:goto1069
  84. 1064 y=5:gosub9999:print""wa1(a)"";:poke49152+z,48:poke55296+z,1
  85. 1069 x=35:z=275
  86. 1070 ifda1(a)>9thenx=34:z=274
  87. 1071 ifda1(a)>99thenx=33:z=273
  88. 1072 ifda1(a)>999thenx=32:z=272
  89. 1073 ifda1(a)>9999thenx=31:y=6:gosub9999:print""da1(a)"";:goto1079
  90. 1074 y=6:gosub9999:print""da1(a)"";:poke49152+z,48:poke55296+z,1
  91. 1079 x=35:z=315
  92. 1080 ifzi1(a)>9thenx=34:z=314
  93. 1081 ifzi1(a)>99thenx=33:z=313
  94. 1082 ifzi1(a)>999thenx=32:z=312
  95. 1083 ifzi1(a)>9999thenx=31:y=7:gosub9999:print""zi1(a)"";:goto1088
  96. 1084 y=7:gosub9999:print""zi1(a)"";:poke49152+z,48:poke55296+z,1
  97. 1088 x=31:y=8:gosub9999:print"         ";
  98. 1089 ge(a)=int(ge(a)):x=31:y=8:gosub9999:print""ge(a)"";
  99. 1090 x=9:y=16:gosub9999:print""re(a)"[219][219]";
  100. 1091 vr(a)=vr(a)*100:x=13:y=21:gosub9999:print""vr(a)"%";
  101. 1092 x=33:y=10:gosub9999:print""w1(a)"";
  102. 1093 x=13:y=18:gosub9999:print""zn(a)"%";
  103. 1094 x=33:y=11:gosub9999:print""d1(a)"";
  104. 1095 x=33:y=12:gosub9999:print""z1(a)"";
  105. 1096 x=33:y=13:gosub9999:print""o1(a)"";:poke53265,155
  106. 1098 ifp=2then1111
  107. 1099 ifp=3then1121
  108. 1100 j=peek(56320):p=1
  109. 1101 ifj=126then1110
  110. 1102 ifj=123then1200
  111. 1103 ifj=125then1300
  112. 1104 ifj=119then1400
  113. 1105 ifj=122then1800
  114. 1106 k=peek(197)
  115. 1107 ifk=4then1800
  116. 1108 goto1100
  117. 1110 gosub2000:x=20:y=15:gosub9999:print"[144]verkauf";:printtab(31)"ankauf";
  118. 1111 j=peek(56320):p=2
  119. 1112 ifj=126then1119
  120. 1113 ifj=123then1500
  121. 1114 ifj=119then1700
  122. 1115 ifj=125then1600
  123. 1116 goto1111
  124. 1119 gosub2000
  125. 1120 x=31:y=15:gosub9999:print"[144]ankauf";:x=33:y=2:gosub9999:print"weiter";
  126. 1121 j=peek(56320):p=3
  127. 1122 ifj=111then2100
  128. 1123 ifj=126then1125
  129. 1124 goto1121
  130. 1125 gosub2000:x=33:y=2:gosub9999:print"[144]weiter";
  131. 1126 x=20:y=15:gosub9999:print"verkauf";:goto1100
  132. 1150 fork=btob-2step-1:poke49152+k,48:poke55296+k,1:next
  133. 1151 vr(a)=vr(a)/100:goto1049
  134. 1200 gosub2005
  135. 1201 x=2:y=23:gosub9999:print"[158]wieviel barrel oel verkaufen :00000"
  136. 1202 poke50168,18:pokev+16,1:q=56:pokev,q:pokev+1,228
  137. 1209 z=1:l=956:m=47
  138. 1210 j=peek(56320)
  139. 1211 ifj=123then1220
  140. 1212 ifj=119then1230
  141. 1213 ifj=126then1240
  142. 1214 ifj=125then1250
  143. 1215 ifj=111then1260
  144. 1216 goto1210
  145. 1220 z=z*10:q=q-8:l=l-1:ifq=16thenq=24:z=z/10:l=l+1:goto1210
  146. 1221 gosub2015:pokev,q:goto1210
  147. 1230 l=l+1:z=z/10:q=q+8:ifq=64thenq=56:z=z*10:l=l-1:goto1210
  148. 1231 gosub2015:pokev,q:goto1210
  149. 1240 m=m+1:ifm>57thenm=48
  150. 1241 gosub2020:poke49152+l,m:poke55296+l,1:goto1210
  151. 1250 m=m-1:ifm<48thenm=57
  152. 1251 gosub2020:poke49152+l,m:poke55296+l,1:goto1210
  153. 1260 z=0:t=.1:fork=0to4:b=peek(50108-k):b=b-48:t=t*10:b=b*t:z=z+b:next
  154. 1261 ifz<=oe1(a)then1264
  155. 1262 gosub2025:x=2:y=23:gosub9999:print"        das ist unmoeglich !        "
  156. 1263 forl=1to1600:next:goto1200
  157. 1264 b=z:b=b*o1(a):ge(a)=ge(a)+b:oe1(a)=oe1(a)-z:pokev,0:pokev+1,0
  158. 1265 x=2:y=23:gosub9999:print"                                     "
  159. 1266 b=194:goto1150
  160. 1300 gosub2005
  161. 1301 x=2:y=23:gosub9999:print"[158] wieviel t datteln verkaufen :00000"
  162. 1302 pokev+16,1:q=56:pokev,q:pokev+1,228
  163. 1309 z=1:l=956:m=47
  164. 1310 j=peek(56320)
  165. 1311 ifj=123then1320
  166. 1312 ifj=119then1330
  167. 1313 ifj=126then1340
  168. 1314 ifj=125then1350
  169. 1315 ifj=111then1360
  170. 1316 goto1310
  171. 1320 z=z*10:q=q-8:l=l-1:ifq=16thenq=24:z=z/10:l=l+1:goto1310
  172. 1321 gosub2015:pokev,q:goto1310
  173. 1330 l=l+1:z=z/10:q=q+8:ifq=64thenq=56:z=z*10:l=l-1:goto1310
  174. 1331 gosub2015:pokev,q:goto1310
  175. 1340 m=m+1:ifm>57thenm=48
  176. 1341 gosub2020:poke49152+l,m:poke55296+l,1:goto1310
  177. 1346 vr(a)=vr(a)/100
  178. 1347 fork=274to272step-1:poke49152+k,48:poke55296+k,1:next:goto1049
  179. 1350 m=m-1:ifm<48thenm=57
  180. 1351 gosub2020:poke49152+l,m:poke55296+l,1:goto1310
  181. 1360 z=0:t=.1:fork=0to4:b=peek(50108-k):b=b-48:t=t*10:b=b*t:z=z+b:next
  182. 1361 ifz<=da1(a)then1364
  183. 1362 gosub2025:x=3:y=23:gosub9999:print"       das ist unmoeglich !        "
  184. 1363 forl=1to1600:next:goto1300
  185. 1364 b=z:b=b*d1(a):ge(a)=ge(a)+b:da1(a)=da1(a)-z:pokev,0:pokev+1,0
  186. 1365 x=3:y=23:gosub9999:print"                                    "
  187. 1366 b=274:goto1150
  188. 1400 gosub2005
  189. 1401 x=2:y=23:gosub9999:print"[158] wieviel zigaetten verkaufen :00000"
  190. 1402 pokev+16,1:q=56:pokev,q:pokev+1,228
  191. 1409 z=1:l=956:m=47
  192. 1410 j=peek(56320)
  193. 1411 ifj=123then1420
  194. 1412 ifj=119then1430
  195. 1413 ifj=126then1440
  196. 1414 ifj=125then1450
  197. 1415 ifj=111then1460
  198. 1416 goto1410
  199. 1420 z=z*10:q=q-8:l=l-1:ifq=16thenq=24:z=z/10:l=l+1:goto1410
  200. 1421 gosub2015:pokev,q:goto1410
  201. 1430 l=l+1:z=z/10:q=q+8:ifq=64thenq=56:z=z*10:l=l-1:goto1410
  202. 1431 gosub2015:pokev,q:goto1410
  203. 1440 m=m+1:ifm>57thenm=48
  204. 1441 gosub2020:poke49152+l,m:poke55296+l,1:goto1410
  205. 1450 m=m-1:ifm<48thenm=57
  206. 1451 gosub2020:poke49152+l,m:poke55296+l,1:goto1410
  207. 1460 z=0:t=.1:fork=0to4:b=peek(50108-k):b=b-48:t=t*10:b=b*t:z=z+b:next
  208. 1461 ifz<=zi1(a)then1464
  209. 1462 gosub2025:x=3:y=23:gosub9999:print"       das ist unmoeglich !        "
  210. 1463 forl=1to1600:next:goto1400
  211. 1464 b=z:b=b*z1(a):ge(a)=ge(a)+b:zi1(a)=zi1(a)-z:pokev,0:pokev+1,0
  212. 1465 x=3:y=23:gosub9999:print"                                    "
  213. 1466 b=314:goto1150
  214. 1500 gosub2010
  215. 1501 x=2:y=23:gosub9999:print"[158]    wieviel oel moechten sie :00000"
  216. 1502 pokev+16,1:q=56:pokev,q:pokev+1,228
  217. 1509 z=1:l=956:m=47
  218. 1510 j=peek(56320)
  219. 1511 ifj=123then1520
  220. 1512 ifj=119then1530
  221. 1513 ifj=126then1540
  222. 1514 ifj=125then1550
  223. 1515 ifj=111then1560
  224. 1516 goto1510
  225. 1520 z=z*10:q=q-8:l=l-1:ifq=16thenq=24:z=z/10:l=l+1:goto1510
  226. 1521 gosub2015:pokev,q:goto1510
  227. 1530 l=l+1:z=z/10:q=q+8:ifq=64thenq=56:z=z*10:l=l-1:goto1510
  228. 1531 gosub2015:pokev,q:goto1510
  229. 1540 m=m+1:ifm>57thenm=48
  230. 1541 gosub2020:poke49152+l,m:poke55296+l,1:goto1510
  231. 1550 m=m-1:ifm<48thenm=57
  232. 1551 gosub2020:poke49152+l,m:poke55296+l,1:goto1510
  233. 1560 z=0:t=.1:fork=0to4:b=peek(50108-k):b=b-48:t=t*10:b=b*t:z=z+b:next
  234. 1561 ifz+oe1(a)<100000then1564
  235. 1562 gosub2025:x=6:y=23:gosub9999:print"    das ist unmoeglich !        "
  236. 1563 forl=1to1600:next:goto1500
  237. 1564 b=z:b=b*o1(a):ge(a)=ge(a)-b:oe1(a)=oe1(a)+z:pokev,0:pokev+1,0:gosub1810
  238. 1565 x=6:y=23:gosub9999:print"                                 "
  239. 1566 b=194:goto1150
  240. 1600 gosub2010
  241. 1601 x=1:y=23:gosub9999:print"[158]  wieviel wasser moechten sie :00000"
  242. 1602 pokev+16,1:q=40:pokev,q:pokev+1,228
  243. 1609 z=100:l=954:m=47
  244. 1610 j=peek(56320)
  245. 1611 ifj=123then1620
  246. 1612 ifj=119then1630
  247. 1613 ifj=126then1640
  248. 1614 ifj=125then1650
  249. 1615 ifj=111then1660
  250. 1616 goto1610
  251. 1620 z=z*10:q=q-8:l=l-1:ifq=16thenq=24:z=z/10:l=l+1:goto1610
  252. 1621 gosub2015:pokev,q:goto1610
  253. 1630 l=l+1:z=z/10:q=q+8:ifq=48thenq=40:z=z*10:l=l-1:goto1610
  254. 1631 gosub2015:pokev,q:goto1610
  255. 1640 m=m+1:ifm>57thenm=48
  256. 1641 gosub2020:poke49152+l,m:poke55296+l,1:goto1610
  257. 1650 m=m-1:ifm<48thenm=57
  258. 1651 gosub2020:poke49152+l,m:poke55296+l,1:goto1610
  259. 1660 z=0:t=.1:fork=0to4:b=peek(50108-k):b=b-48:t=t*10:b=b*t:z=z+b:next
  260. 1661 ifz+wa1(a)<100000then1664
  261. 1662 gosub2025:x=3:y=23:gosub9999:print"       das ist unmoeglich !        "
  262. 1663 forl=1to1600:next:goto1600
  263. 1664 b=z:b=b*w1(a):ge(a)=ge(a)-b:wa1(a)=wa1(a)+z:pokev,0:pokev+1,0
  264. 1665 x=3:y=23:gosub9999:print"                                    "
  265. 1666 b=234:i=100000/wa1(a):j=32/i:pokev+7,114-j:goto1150
  266. 1700 gosub2010
  267. 1701 x=2:y=23:gosub9999:print"[158]  wieviel stangen zigaretten :00000"
  268. 1702 pokev+16,1:q=56:pokev,q:pokev+1,228
  269. 1709 z=1:l=956:m=47
  270. 1710 j=peek(56320)
  271. 1711 ifj=123then1720
  272. 1712 ifj=119then1730
  273. 1713 ifj=126then1740
  274. 1714 ifj=125then1750
  275. 1715 ifj=111then1760
  276. 1716 goto1710
  277. 1720 z=z*10:q=q-8:l=l-1:ifq=16thenq=24:z=z/10:l=l+1:goto1710
  278. 1721 gosub2015:pokev,q:goto1710
  279. 1730 l=l+1:z=z/10:q=q+8:ifq=64thenq=56:z=z*10:l=l-1:goto1710
  280. 1731 gosub2015:pokev,q:goto1710
  281. 1740 m=m+1:ifm>57thenm=48
  282. 1741 gosub2020:poke49152+l,m:poke55296+l,1:goto1710
  283. 1750 m=m-1:ifm<48thenm=57
  284. 1751 gosub2020:poke49152+l,m:poke55296+l,1:goto1710
  285. 1760 z=0:t=.1:fork=0to4:b=peek(50108-k):b=b-48:t=t*10:b=b*t:z=z+b:next
  286. 1761 ifz+zi1(a)<100000then1764
  287. 1762 gosub2025:x=4:y=23:gosub9999:print"      das ist unmoeglich !        "
  288. 1763 forl=1to1600:next:goto1700
  289. 1764 b=z:b=b*z1(a):ge(a)=ge(a)-b:zi1(a)=zi1(a)+z:pokev,0:pokev+1,0:gosub1810
  290. 1765 x=4:y=23:gosub9999:print"                                   "
  291. 1766 b=314:goto1150
  292. 1800 b=oe1(a)
  293. 1801 c=da1(a)
  294. 1802 d=zi1(a)
  295. 1803 oe1(a)=oe1(a)-b:ge(a)=ge(a)+o1(a)*b
  296. 1804 da1(a)=da1(a)-c:ge(a)=ge(a)+d1(a)*c
  297. 1805 zi1(a)=zi1(a)-d:ge(a)=ge(a)+z1(a)*d
  298. 1806 x=32:y=4:gosub9999:print"00000";
  299. 1807 x=32:y=6:gosub9999:print"00000";
  300. 1808 x=32:y=7:gosub9999:print"00000";:x=31:y=8:gosub9999
  301. 1809 print"         ";:x=31:y=8:gosub9999:print""ge(a)"  ";:goto1100
  302. 1810 t=int(10*rnd(1))+10:x=19:y=21:gosub9999:print"[158]mehrwertsteuer"t"%";
  303. 1811 poke50028,32:b=b*st:b=b/100:ge(a)=ge(a)-b:return
  304. 2000 poke828,1:poke829,21:poke830,10:poke831,200:poke832,100:poke833,1
  305. 2001 poke834,1:poke835,40:poke836,10:sys52900:return
  306. 2005 poke828,1:poke829,21:poke830,9:poke831,50:poke832,10:poke833,1
  307. 2006 poke834,1:poke835,70:poke836,10:sys52900:return
  308. 2010 poke828,1:poke829,21:poke830,9:poke831,130:poke832,90:poke833,1
  309. 2011 poke834,1:poke835,70:poke836,30:sys52900:return
  310. 2015 poke828,1:poke829,21:poke830,7:poke831,80:poke832,60:poke833,1
  311. 2016 poke834,1:poke835,55:poke836,20:sys52900:return
  312. 2020 poke54276,0:poke54273,50:poke54287,20:poke54296,15
  313. 2021 poke54277,6:poke54276,21:return
  314. 2025 poke828,1:poke829,23:poke830,12:poke831,70:poke832,10:poke833,2
  315. 2026 poke834,16:poke835,46:poke836,7:sys52900:return
  316. 2034 poke54290,0
  317. 2035 poke828,1:poke829,17:poke830,12:poke831,20:poke832,6:poke833,1
  318. 2036 poke834,7:poke835,76:poke836,37:sys52900:sys52900:return
  319. 2045 poke828,1:poke829,17:poke830,89:poke831,12:poke832,6:poke833,1
  320. 2046 poke834,5:poke835,176:poke836,17:sys52900:sys52900:return
  321. 2047 poke828,1:poke829,23:poke830,11:poke831,32:poke832,16:poke833,1
  322. 2048 poke834,10:poke835,76:poke836,7:sys52900:return
  323. 2050 poke828,1:poke829,21:poke830,12:poke831,120:poke832,30:poke833,1
  324. 2051 poke834,5:poke835,35:poke836,20:sys52900:return
  325. 2052 poke828,1:poke829,23:poke830,11:poke831,32:poke832,16:poke833,1
  326. 2053 poke834,10:poke835,76:poke836,10:sys52900:return
  327. 2055 poke828,1:poke829,33:poke830,11:poke831,60:poke832,30:poke833,2
  328. 2056 poke834,11:poke835,22:poke836,146:sys52900:return
  329. 2060 poke828,1:poke829,23:poke830,11:poke831,22:poke832,6:poke833,1
  330. 2061 poke834,11:poke835,76:poke836,4:sys52900:return
  331. 2065 poke828,1:poke829,23:poke830,11:poke831,60:poke832,30:poke833,1
  332. 2066 poke834,5:poke835,59:poke836,16:sys52900:return
  333. 2074 si=54272:pokesi+24,15:pokesi+3,5:pokesi+10,5:pokesi+11,0:pokesi+4,0
  334. 2075 pokesi+18,0:pokesi+5,13:pokesi+13,0:pokesi+12,12
  335. 2076 pokesi+11,65:pokesi+8,2:pokesi+4,65:pokesi+1,2
  336. 2077 forn=1to6:fori=150to200step2:pokesi,i:pokesi+7,i+4:nexti
  337. 2078 forb=200to150step-2:pokesi,b:pokesi+7,b+4:nextb:next:return
  338. 2090 poke828,10:poke828,1:poke829,17:poke830,15:poke831,20:poke832,10:poke833,1
  339. 2091 poke834,23:poke835,50:poke836,16:sys52900:return
  340. 2100 poke53265,65:x=23:y=4:gosub9999:print"[158]arbeiter : 0000 "
  341. 2101 printtab(19)"[158]facharbeiter : 0000 "
  342. 2102 printtab(19)"[158]   oelfelder : 00   "
  343. 2103 printtab(18)"[158]tabakfabriken : 00   "
  344. 2104 printtab(17)"[158]tabakplantagen : 00  "
  345. 2105 x=16:y=9:gosub9999:print"[158]dattelplantagen : 00   "
  346. 2106 x=16:y=10:gosub9999:print"                      "
  347. 2107 printtab(17)"[144][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][146]"
  348. 2108 printtab(16)"[144][200][146]                     [199][146]"
  349. 2109 printtab(16)"[200][146][159]wirtschaftskriterien:[144][199][146]"
  350. 2110 printtab(16)"[144][200][146]                     [199][146]"
  351. 2111 printtab(16)"[200][146]*[158]1 oelfeld : 10 arb. [144][199][146]"
  352. 2112 printtab(16)"[200][146] und 10 facharbeiter [144][199][146]"
  353. 2113 printtab(16)"[200][146]*[158]dattelpla.: 40 arb. [144][199][146]"
  354. 2114 printtab(16)"[200][146]*[158]tabakplan.: 25 arb. [144][199][146]"
  355. 2115 printtab(16)"[200][146]*[158]tabakfabrik braucht:[144][199][146]"
  356. 2116 printtab(16)"[200][146] 10 facharbeiter     [144][199][146]"
  357. 2117 printtab(16)"[200][146] 20 arbeiter         [144][199][146]"
  358. 2118 printtab(16)"[200][146] 4   tabakplantagen  [144][199][146]"
  359. 2119 printtab(16)"[144][200][146]                     [199][146]"
  360. 2120 printtab(17)"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][146]";
  361. 2121 x=0:y=15:gosub9999:print"[158] _ [144]arbeiter     "
  362. 2122 print"[158]   einstellen   "
  363. 2123 print"[158] # [144]facharbeiter "
  364. 2124 print"[158]   einstellen   "
  365. 2125 print"[158] ^ [144]arbeiter     "
  366. 2126 print"[158]   entlassen    "
  367. 2127 print"[158] \ [144]facharbeiter "
  368. 2128 print"[158]   entlassen    "
  369. 2130 x=34:y=6:ifol(a)>9thenx=33
  370. 2131 gosub9999:print""ol(a)""
  371. 2135 x=34:y=7:ifta(a)>9thenx=33
  372. 2136 gosub9999:print""ta(a)""
  373. 2140 x=34:y=8:iftp(a)>9thenx=33
  374. 2141 gosub9999:print""tp(a)""
  375. 2145 x=34:y=9:ifdp(a)>9thenx=33
  376. 2146 gosub9999:print""dp(a)""
  377. 2160 fori=274to394step40:b=peek(i+49152):ifb=32thenpoke49152+i,48:poke55296+i,1
  378. 2161 next:x=2:y=23:gosub9999:print"              ";
  379. 2190 poke53265,65:fori=193to197:poke55296+i,1:next
  380. 2191 fori=233to237:poke55296+i,1:next
  381. 2200 x=34:y=4:gosub9999:print"0000";:x=36:z=196:poke53265,65
  382. 2201 ifar(a)>9thenx=35:z=195
  383. 2202 ifar(a)>99thenx=34:z=194
  384. 2203 ifar(a)>999thenx=33:y=4:gosub9999:print""ar(a)"";::goto2209
  385. 2205 y=4:gosub9999:print""ar(a)"";:poke49152+z,48:poke55296+z,1
  386. 2209 x=34:y=5:gosub9999:print"0000";:x=36:z=236
  387. 2211 iffa(a)>9thenx=35:z=235
  388. 2212 iffa(a)>99thenx=34:z=234
  389. 2213 iffa(a)>999thenx=33:y=5:gosub9999:print""fa(a)"";::goto2216
  390. 2215 y=5:gosub9999:print""fa(a)"";:poke49152+z,48:poke55296+z,1
  391. 2216 x=6:y=13:gosub9999:print"ihre firma"
  392. 2217 c=ol(a)*20:c=c+ta(a)*20:c=c+tp(a)*25:c=c+dp(a)*40:d=ol(a)*10:d=d+ta(a)*10
  393. 2218 ifc>ar(a)thenfori=193to197:poke55296+i,0:next
  394. 2219 ifd>fa(a)thenfori=233to237:poke55296+i,0:next
  395. 2220 j=peek(56320):poke53265,155:poke834,1
  396. 2221 ifj=123then2240
  397. 2222 ifj=125then2340
  398. 2223 ifj=119then2440
  399. 2224 ifj=126then2540
  400. 2225 ifj=111then3000
  401. 2226 goto2220
  402. 2230 x=6:y=13:gosub9999:print"   0000   ":pokev+16,0:return
  403. 2240 gosub2230:x=0:y=15:gosub9999:print"[144]*";
  404. 2242 q=120:pokev,q:pokev+1,148
  405. 2249 z=1:l=532:m=47
  406. 2250 j=peek(56320)
  407. 2251 ifj=123then2260
  408. 2252 ifj=119then2270
  409. 2253 ifj=126then2280
  410. 2254 ifj=125then2290
  411. 2255 ifj=111then2300
  412. 2256 goto2250
  413. 2260 z=z*10:q=q-8:l=l-1:ifq=88thenq=96:z=z/10:l=l+1:goto2250
  414. 2261 gosub2015:pokev,q:goto2250
  415. 2270 l=l+1:z=z/10:q=q+8:ifq=128thenq=120:z=z*10:l=l-1:goto2250
  416. 2271 gosub2015:pokev,q:goto2250
  417. 2280 m=m+1:ifm>57thenm=48
  418. 2281 gosub2020:poke49152+l,m:poke55296+l,1:goto2250
  419. 2290 m=m-1:ifm<48thenm=57
  420. 2291 gosub2020:poke49152+l,m:poke55296+l,1:goto2250
  421. 2300 gosub2700
  422. 2301 ifz+ar(a)<=9999then2304
  423. 2302 gosub2025:x=2:y=24:gosub9999:print"geht nicht !";
  424. 2303 forl=1to1600:next:poke49152+600,32:goto2305
  425. 2304 ar(a)=ar(a)+z:pokev,0:pokev+1,0:poke49152+600,32
  426. 2305 x=2:y=24:gosub9999:print"            ";:pokev+1,0:pokev,0:goto2190
  427. 2340 gosub2230:x=0:y=17:gosub9999:print"[144]*";
  428. 2342 q=120:pokev,q:pokev+1,148
  429. 2349 z=1:l=532:m=47
  430. 2350 j=peek(56320)
  431. 2351 ifj=123then2360
  432. 2352 ifj=119then2370
  433. 2353 ifj=126then2380
  434. 2354 ifj=125then2390
  435. 2355 ifj=111then2400
  436. 2356 goto2350
  437. 2360 z=z*10:q=q-8:l=l-1:ifq=88thenq=96:z=z/10:l=l+1:goto2350
  438. 2361 gosub2015:pokev,q:goto2350
  439. 2370 l=l+1:z=z/10:q=q+8:ifq=128thenq=120:z=z*10:l=l-1:goto2350
  440. 2371 gosub2015:pokev,q:goto2350
  441. 2380 m=m+1:ifm>57thenm=48
  442. 2381 gosub2020:poke49152+l,m:poke55296+l,1:goto2350
  443. 2390 m=m-1:ifm<48thenm=57
  444. 2391 gosub2020:poke49152+l,m:poke55296+l,1:goto2350
  445. 2400 gosub2700
  446. 2401 ifz+fa(a)<=9999then2404
  447. 2402 gosub2025:x=2:y=24:gosub9999:print"geht nicht !";
  448. 2403 forl=1to1600:next:poke49152+680,32:goto2405
  449. 2404 fa(a)=fa(a)+z:pokev,0:pokev+1,0:poke49152+680,32
  450. 2405 x=2:y=24:gosub9999:print"            ";:pokev+1,0:pokev,0:goto2190
  451. 2440 gosub2230:x=0:y=19:gosub9999:print"[144]*";
  452. 2442 q=120:pokev,q:pokev+1,148
  453. 2449 z=1:l=532:m=47
  454. 2450 j=peek(56320)
  455. 2451 ifj=123then2460
  456. 2452 ifj=119then2470
  457. 2453 ifj=126then2480
  458. 2454 ifj=125then2490
  459. 2455 ifj=111then2500
  460. 2456 goto2450
  461. 2460 z=z*10:q=q-8:l=l-1:ifq=88thenq=96:z=z/10:l=l+1:goto2450
  462. 2461 gosub2015:pokev,q:goto2450
  463. 2470 l=l+1:z=z/10:q=q+8:ifq=128thenq=120:z=z*10:l=l-1:goto2450
  464. 2471 gosub2015:pokev,q:goto2450
  465. 2480 m=m+1:ifm>57thenm=48
  466. 2481 gosub2020:poke49152+l,m:poke55296+l,1:goto2450
  467. 2490 m=m-1:ifm<48thenm=57
  468. 2491 gosub2020:poke49152+l,m:poke55296+l,1:goto2450
  469. 2500 gosub2700
  470. 2501 ifar(a)-z>=0then2504
  471. 2502 gosub2025:x=2:y=24:gosub9999:print"geht nicht !";
  472. 2503 forl=1to1600:next:poke49152+760,32:goto2505
  473. 2504 ar(a)=ar(a)-z:pokev,0:pokev+1,0:poke49152+760,32
  474. 2505 x=2:y=24:gosub9999:print"            ";:pokev+1,0:pokev,0:goto2200
  475. 2540 gosub2230:x=0:y=21:gosub9999:print"[144]*";
  476. 2542 q=120:pokev,q:pokev+1,148
  477. 2549 z=1:l=532:m=47
  478. 2550 j=peek(56320)
  479. 2551 ifj=123then2560
  480. 2552 ifj=119then2570
  481. 2553 ifj=126then2580
  482. 2554 ifj=125then2590
  483. 2555 ifj=111then2600
  484. 2556 goto2550
  485. 2560 z=z*10:q=q-8:l=l-1:ifq=88thenq=96:z=z/10:l=l+1:goto2550
  486. 2561 gosub2015:pokev,q:goto2550
  487. 2570 l=l+1:z=z/10:q=q+8:ifq=128thenq=120:z=z*10:l=l-1:goto2550
  488. 2571 gosub2015:pokev,q:goto2550
  489. 2580 m=m+1:ifm>57thenm=48
  490. 2581 gosub2020:poke49152+l,m:poke55296+l,1:goto2550
  491. 2590 m=m-1:ifm<48thenm=57
  492. 2591 gosub2020:poke49152+l,m:poke55296+l,1:goto2550
  493. 2600 gosub2700
  494. 2601 iffa(a)-z>=0then2604
  495. 2602 gosub2025:x=2:y=24:gosub9999:print"geht nicht !";
  496. 2603 forl=1to1600:next:poke49152+840,32:goto2605
  497. 2604 fa(a)=fa(a)-z:pokev,0:pokev+1,0:poke49152+840,32
  498. 2605 x=2:y=24:gosub9999:print"            ";:pokev+1,0:pokev,0:goto2200
  499. 2700 z=0:t=.1:fork=0to3:b=peek(49684-k):b=b-48:t=t*10:b=b*t:z=z+b:next:return
  500. 3000 v=53248
  501. 3001 fori=2to7:pokev+i,0:next:pokev+16,0
  502. 3002 poke53265,65:print"[147]";:poke53283,9:poke53281,8:gosub7000
  503. 3005 print""
  504. 3006 printspc(3)"[153][193][194]
  505. 3007 [153][166]3)"printlenstr$ sysdattelplantage anlegen : $"mu(a)[172]3000""
  506. 3008 [153][163]3)"printright$right$
  507. 3009 printtab(3)"[153][203][204] [158]tabakplantage anlegen  : $"mu(a)*4000"
  508. 3010 [153][166]3)"(NULL)(NULL)
  509. 3011 printspc(3)"[129][207][208] [158]tabakfabrik anlegen    : $"mu(a)*20000"
  510. 3012 [153][166]3)"stopvalasc
  511. 3013 printspc(3)"[144][199][200] [158]nach oel bohren        : $"mu(a)*15000""
  512. 3014 printspc(3)"[144][213][214]
  513. 3015 [153][166]3)"(NULL)(NULL) sysgift verspruehen       : $"mu(a)[172]8000""
  514. 3016 [153][166]3)"stop09wait
  515. 3017 printspc(3)"[217][218] [158]raketensalve auf gegner: $ 35000
  516. 3019 [153][166]3)"printcos> sysland roden             : $"mu(a)[172]2000""
  517. 3020 [153][166]3)"verify12wait
  518. 3021 printspc(3)"34[146] [158]land betrachten
  519. 3022 [153][166]3)"list56wait
  520. 3023 printspc(3)"78[146] [158]ihr vermoegen betraegt : $"ge(a)"";:x=3:y=22:gosub9999
  521. 3024 print"[158]mit dem joystick _ [158]geht es weiter"
  522. 3025 x=31:y=3:gosub9999:print"[144]*[159]kosten[144]*":gosub978
  523. 3026 x=6:y=3:gosub9999:print"[158]schuldenlimit $"ji"";
  524. 3028 v=53248:pokev,33:y=73:pokev+1,y:z=1:poke50168,21:poke53265,155
  525. 3030 j=peek(56320)
  526. 3031 ifj=125then3040
  527. 3032 ifj=126then3050
  528. 3033 ifj=111then3100
  529. 3034 ifj=123then3800
  530. 3036 goto3030
  531. 3040 z=z+1:ifz=9thenz=1:y=73:pokev+1,y:goto3030
  532. 3041 gosub2015:y=y+16:pokev+1,y:goto3030
  533. 3050 z=z-1:ifz=0thenz=8:y=185:pokev+1,y:goto3030
  534. 3051 gosub2015:y=y-16:pokev+1,y:goto3030
  535. 3100 ifz<>6then4000
  536. 3101 fork=16to19:x=3:y=k:gosub9999:print"                          ";:next
  537. 3104 x=4:y=16:gosub9999:print"[144][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][146]"
  538. 3105 x=3:y=17:gosub9999:print"[200][146]                [199][146]"
  539. 3106 x=4:y=18:gosub9999:print"[144][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][146]":pokev+1,172:pokev,59
  540. 3107 x=6:y=19:gosub9999:print"[158]waehlen sie":z=a
  541. 3110 x=6:y=17:gosub9999:print"[159]"n$(z)"";
  542. 3120 j=peek(56320)
  543. 3121 ifj=119then3125
  544. 3122 ifj=111then9000
  545. 3123 goto3120
  546. 3125 gosub2047:z=z+1:ifz+1>plthenz=0
  547. 3126 x=6:y=17:gosub9999:print"           ":goto3110
  548. 3800 ifin(a)=10then3810
  549. 3801 g=int(rnd(1)*1000):ifg<900then5000
  550. 3802 f=int(rnd(1)*240):ki(a)=1:ka(a)=f:f=f+1024:g=peek(f+(250*a)):in(a)=10
  551. 3803 ifg=69org=77then3802
  552. 3804 pokef+(250*a),81:goto3901
  553. 3810 rem ausbreitung
  554. 3811 ki(a)=ki(a)+1:g=int(rnd(1)*1000)+1
  555. 3812 ifg<250thenka(a)=ka(a)+1:goto3819
  556. 3813 ifg<500thenka(a)=ka(a)-1:goto3819
  557. 3814 ifg<750thenka(a)=ka(a)+20:goto3819
  558. 3815 ifg<1000thenka(a)=ka(a)-20:goto3819
  559. 3819 ifka(a)<1orka(a)>220thenki(a)=ki(a)-1:goto3811
  560. 3820 b=1024+(250*a):g=peek(ka(a)+b)
  561. 3821 ifg=65thendp(a)=dp(a)-1
  562. 3822 ifg=73thentp(a)=tp(a)-1
  563. 3823 ifg=81thenki(a)=ki(a)-1
  564. 3824 ifg=69org=77thenki(a)=ki(a)-1:goto3811
  565. 3825 pokeb+ka(a),81
  566. 3901 print"[147]":poke53281,11:poke53269,0:poke53265,65
  567. 3902 x=9:y=10:gosub9999:print"ihr land wird von einer
  568. 3903 [153][163]6)"insektenplage heimgesucht !!!";
  569. 3904 [129]k[178]1[164]7:[153]"stop                                        wait";:[130]
  570. 3905 x[178]0:y[178]16:[141]9999:[129]l[178]1[164]8
  571. 3906 [153]"stop                                        wait";:[130]
  572. 3907 [153]"                                       wait";:[151]50151,160
  573. 3910 [151]56295,0:[151]53265,155
  574. 3911 j[178][194](56320):[139]j[178]111[167]5000
  575. 3912 [137]3911
  576. 4000 [151]2023,1[170]a:[141]4001:[137]4028
  577. 4001 [151]53265,65:[153]"loadprint";:[151]53281,7:[151]53269,2:[151]53282,0:[151]53283,9
  578. 4002 [153]">sin*+tab(   ^abs+log*abs= tab( deksfghiwaitprint      tab(+poslogsin>orsin";
  579. 4003 [153]">logsinrndtab( tab( orsinlog>sin*tab( tab(+abs=expabs y  wprintwait   tab(abs+posand+log>orsin";
  580. 4004 [153]"sin>logfre= andlog>*pos+logfre+freand+pos>sin*sinz  xprintwait thentab(pos/abstab(+possinor>>";
  581. 4005 [153]"/cosabsfre^and  /cospos^+andabstab(pos+orsin>*+ defmprintwait tab( ^log+poslogsin>>*";
  582. 4006 [153]"andtab( tab(   =tab( tab(andabsand-tab(+poscoslogsin>sin*  n wprintwait= tab(and+posexpfrepos>*";
  583. 4007 [153]"expposfre  =and  ^logpos+=new+absposand+>>sin>sin z xprintwait fntab( and-fre+postab(pos";
  584. 4008 [153]"intabs<fretab(   tab(<orfnget++int+possinsin>orsin>+   wprintwait  newtab(+posfretab(= tab(";
  585. 4009 [153]"abstab(and abs = tab(posnewposposabsposloglogsin>rnd/cos>rnd  y xprintwait tab(and-posandtab( =newfre";
  586. 4010 [153]"+posand  andabs^+pos-fresgn+posrnd/cos/absposandand   z wprintwait tab(abstab( =  ahbprintwait";
  587. 4011 [153]"exp+expabsand-tab( </cosnew/posabstab(absgetand+postab(     efghbhuabc   printwait";
  588. 4012 [153]"sinlog>sin>*andtab( tab(+postab(^+tab(^expabsfretab(and+=tab(and   dekfjkef   printwait";
  589. 4013 [153]">sinsinlogsinsin*fre  tab(and and tab(<orsinorsin*expabsfreabs+posfrepos       defprintwait";
  590. 4014 [153]"+log>+poslogrndpostab( = = tab( ^logcos/log>sin*posand -tab(^abstab( thenandtab(
  591. 4015 print"[188][177][177][191][188][187][190][170][163]   [165][163]  [182] [163][174][170][191][177][191][177][172][170][185][182][163][184][178][175][163]  [163]
  592. 4016 [153]"sin+>sin>fre     tab(  -tab(and+=or>sin*sinlog*+abstab(intandtab(  tab(absposfretab( ";
  593. 4017 [153]">log>>sinposfretab(    andintgetnew andabsexplog>rndsinsinrnd*<rnd-andpos+getthentab( ^+pos";
  594. 4018 [153]"orsin*log>rndnewabs  tab(andfre- and-tab(pos+freorsin>orlog>*orlogorsin*abs+tab(pos=logcos";
  595. 4019 [153]">sin*orsinlogcosfreand getthenabs absnew^*>exporsin>>log*ororloglogor>sin>+posfre-tab(abs";
  596. 4020 [153]"orsinlog*>sinrnd   tab(  tab(and=<loglog>rndlog*>or*>orlogorlogor>rndsinlog/cos+abs";
  597. 4021 [153]"expsin/*orsinpos=tab( = abs+and->rndlogsinor>logorsin*+orlogorlogor+pos/+cosrndabs+";
  598. 4022 [153]"^+posandlogorsin*  tab(^abs+orsinnewfresin>orlog>sinsinor*>orsinor>/abs+newtab(+fretab(";
  599. 4023 [153]"absand-freandorsin>*pos=freorlog>rndthensgnposand>*>>or*logrndabsfre<orrndabsfretab(gettab( ^";
  600. 4024 [153]"exp+posexplogorsin>log>+exp+orsinlogposabsnew^orsin+andthenfnintgetabsthenabs^andtab(-posfretab(  ";
  601. 4025 [153]"orsinloglog>sinlog*orsin>loglogor*>andorsin>pos+and-tab(andsgntab( abstab(<fretab( ^andtab(  ";
  602. 4026 [153]"stop                                       wait";:[151]49152[170]999,160
  603. 4027 [151]55296[170]999,0:[158]34816:[151]53265,155:[142]
  604. 4028 [139]z[179][177]8[167]4032
  605. 4029 j[178][194](56320):[139]j[178]111[167]4129
  606. 4030 [137]4029
  607. 4032 [151]v[170]40,0:[151]50169,23:x[178]16:y[178]45:[151]v[170]2,x:[151]v[170]3,y:c[178]1024[170](250[172]a):d[178]1
  608. 4040 j[178][194](56320)
  609. 4041 [139]j[178]119[167]4050
  610. 4042 [139]j[178]123[167]4070
  611. 4043 [139]j[178]125[167]4090
  612. 4044 [139]j[178]126[167]4110
  613. 4045 [139]j[178]111[167]4159
  614. 4046 [139]j[178]122[167]4129
  615. 4047 k[178][194](197)
  616. 4048 [139]k[178]4[167]4129
  617. 4049 [137]4040
  618. 4050 x[178]x[170]16:[139]x[178]256[167][151]v[170]16,2:[151]v[170]2,1:x[178]1:c[178]c[170]1:d[178]d[170]2:[137]4150
  619. 4051 [139]x[178]81[167]x[178]65:[137]4150
  620. 4052 c[178]c[170]1:d[178]d[170]2:[151]v[170]2,x:[137]4150
  621. 4070 x[178]x[171]16:[139]x[178]0[167]x[178]16:[137]4150
  622. 4071 [139]x[178][171]15[167]x[178]240:[151]v[170]16,0:[151]v[170]2,240:c[178]c[171]1:d[178]d[171]2:[137]4150
  623. 4073 c[178]c[171]1:d[178]d[171]2:[151]v[170]2,x:[137]4150
  624. 4090 y[178]y[170]16:[139]y[178]237[167]y[178]221:[137]4150
  625. 4091 c[178]c[170]20:d[178]d[170]80:[151]v[170]3,y:[137]4150
  626. 4110 y[178]y[171]16:[139]y[178]29[167]y[178]45:[137]4150
  627. 4111 c[178]c[171]20:d[178]d[171]80:[151]v[170]3,y:[137]4150
  628. 4120 [151]828,10:[151]834,1:[139]z[178]1[167][151]c,65:ge(a)[178]ge(a)[171]3000:dp(a)[178]dp(a)[170]1
  629. 4121 [139]z[178]2[167][151]c,73:ge(a)[178]ge(a)[171](4000[172]mu(a)):tp(a)[178]tp(a)[170]1
  630. 4122 [139]z[178]3[167][151]c,77:ge(a)[178]ge(a)[171](20000[172]mu(a)):ta(a)[178]ta(a)[170]1
  631. 4123 [139]z[178]4[167]ge(a)[178]ge(a)[171](15000[172]mu(a)):[137]4200
  632. 4124 [139]z[178]5[167]ge(a)[178]ge(a)[171](7500[172]mu(a)):[141]4320:d[178][194](c):[139]d[178]81[167]4300
  633. 4125 [139]z[178]7[167]8900
  634. 4126 [158]34816:[139]z[179][177]5[167][141]2035
  635. 4127 [129]i[178]24[164]28:[151]50169,i:[129]k[178]1[164]30:[130]:[130]:[129]i[178]28[164]23[169][171]1
  636. 4128 [151]50169,i:[129]k[178]1[164]20:[130]:[130]:[137]4040
  637. 4129 [151]53265,65:[151]v[170]21,255:[137]3000
  638. 4150 [141]2045:[137]4040
  639. 4159 [139]z[178]7[176]z[178]5[167]4181
  640. 4160 h[178]d:h[178]h[170]49152:h[178]h[171]1
  641. 4161 b[178][194](h):[139]b[179][177]32[176]b[177]128[167]4170
  642. 4162 h[178]h[170]1:b[178][194](h):[139]b[179][177]32[176]b[177]128[167]4170
  643. 4163 h[178]h[170]39:b[178][194](h):[139]b[179][177]32[176]b[177]128[167]4170
  644. 4164 h[178]h[170]1:b[178][194](h):[139]b[179][177]32[176]b[177]128[167]4170
  645. 4165 [137]4120
  646. 4170 [151]v[170]9,123:[151]v[170]11,123:[151]v[170]13,123:[151]v[170]15,123:[151]v[170]21,240
  647. 4171 x[178]8:y[178]9:[141]9999:[153]"                        "
  648. 4172 x[178]8:y[178]10:[141]9999:[153]" das ist nicht moeglich "
  649. 4173 x[178]8:y[178]11:[141]9999:[153]"                        "
  650. 4174 [141]2055:[129]i[178]1[164]750:[130]:[141]2065:[129]i[178]1[164]2000:[130]
  651. 4175 [151]53265,65:[151]v[170]9,50:[151]v[170]11,50:[151]v[170]13,50:[151]v[170]15,50
  652. 4180 [137]4129
  653. 4181 h[178]d:h[178]h[170]49152:h[178]h[171]1
  654. 4182 b[178][194](h):[139]b[177]128[167]4170
  655. 4183 h[178]h[170]1:b[178][194](h):[139]b[177]128[167]4170
  656. 4184 h[178]h[170]39:b[178][194](h):[139]b[177]128[167]4170
  657. 4185 h[178]h[170]1:b[178][194](h):[139]b[177]128[167]4170
  658. 4186 [137]4120
  659. 4200 [143] probebohrung
  660. 4201 [151]828,10:[141]2074:b[178][181]([187](1)[172]50)[170]1:b[178]b[170][181]([187](1)[172]50)[170]1
  661. 4202 [139]b[177]50[167][151]c,69:ol(a)[178]ol(a)[170]1:[137]4126
  662. 4203 [153]"load":[151]53281,0:[151]53269,0
  663. 4204 x[178]3:y[178]11:[141]9999:[153]"sie haben leider kein oel gefunden !!"
  664. 4205 si[178]54272:[151]si[170]24,15:[151]si[170]5,11:[151]si[170]12,11
  665. 4206 [151]si[170]4,0:[151]si[170]15,40:[151]si[170]4,21:[129]k[178]1[164]17
  666. 4207 b[178][181]([187](1)[172]180)[170]10:[129]i[178]b[164]b[170]40[169]2:[151]si[170]1,i:[130]:[130]k:[137]4129
  667. 4300 [143] gift verspruehen
  668. 4301 [151]c,32:[158]34816:ki(a)[178]ki(a)[171]1
  669. 4302 [129]i[178]24[164]28:[151]50169,i:[129]k[178]1[164]100:[130]:[130]:[129]i[178]28[164]23[169][171]1
  670. 4303 [151]50169,i:[129]k[178]1[164]80:[130]:[130]:[129]i[178]1[164]250:[130]:[139]ki(a)[177]0[167]4040
  671. 4305 [151]v[170]9,123:[151]v[170]11,123:[151]v[170]13,123:[151]v[170]15,123:[151]v[170]21,240
  672. 4306 x[178]8:y[178]9:[141]9999:[153]"                        ":in(a)[178]0
  673. 4307 x[178]8:y[178]10:[141]9999:[153]" insekten ausgerottet ! "
  674. 4308 x[178]8:y[178]11:[141]9999:[153]"                        "
  675. 4309 [141]2055:[129]i[178]1[164]750:[130]:[141]2065:[129]i[178]1[164]2000:[130]
  676. 4310 [151]53265,65:[151]v[170]9,50:[151]v[170]11,50:[151]v[170]13,50:[151]v[170]15,50
  677. 4311 [137]4129
  678. 4320 si[178]54272:[151]si[170]24,15:[151]si[170]6,0:[151]si[170]5,154:[151]si[170]4,0:[151]si[170]1,200
  679. 4321 [151]si[170]4,129:[142]
  680. 5000 [151]53265,65:[153]"load":[151]53281,8:[151]53269,255:[141]7000
  681. 5005 b[178]tp(a):b[178]b[172]450:c[178]dp(a):c[178]c[172]400:d[178]b:d[178]d[170]c:n[178]re(a):n[178]n[172]100
  682. 5006 bw(a)[178][181]([187](1)[172]n)[170]d
  683. 5009 [153]"  stop* openbewaesserung stop*":[153][163]24)"(NULL)"
  684. 5010 [153]"sys  benoetigtes wasser in (NULL) : 00000
  685. 5011 print" [158] wasservorrat betraegt   : 00000
  686. 5012 [153]"sys  wieviel wasser verteilen ? : 00000
  687. 5013 fori=1to12:print"[144]                                        [146]";:next
  688. 5014 print"[144]                                       [146]";:poke50151,160:poke56295,0
  689. 5049 x=31:z=231
  690. 5050 ifbw(a)>9thenx=30:z=230
  691. 5051 ifbw(a)>99thenx=29:z=229
  692. 5052 ifbw(a)>999thenx=28:z=228
  693. 5053 ifbw(a)>9999thenx=27:y=5:gosub9999:print""bw(a)"";:goto5059
  694. 5054 y=5:gosub9999:print""bw(a)"";:poke49152+z,48:poke55296+z,1
  695. 5059 x=31:z=271
  696. 5060 ifwa1(a)>9thenx=30:z=270
  697. 5061 ifwa1(a)>99thenx=29:z=269
  698. 5062 ifwa1(a)>999thenx=28:z=268
  699. 5063 ifwa1(a)>9999thenx=27:y=6:gosub9999:print""wa1(a)"";:goto5208
  700. 5064 y=6:gosub9999:print""wa1(a)"";:poke49152+z,48:poke55296+z,1
  701. 5208 z=1:l=355:m=47:v=53248:pokev+16,1:pokev+1,108:poke50168,18:q=48:pokev,48
  702. 5209 poke53265,155
  703. 5210 j=peek(56320)
  704. 5211 ifj=123then5220
  705. 5212 ifj=119then5230
  706. 5213 ifj=126then5240
  707. 5214 ifj=125then5250
  708. 5215 ifj=111then5260
  709. 5216 goto5210
  710. 5220 z=z*10:q=q-8:l=l-1:ifq=8thenq=16:z=z/10:l=l+1:goto5210
  711. 5221 gosub2015:pokev,q:goto5210
  712. 5230 l=l+1:z=z/10:q=q+8:ifq=56thenq=48:z=z*10:l=l-1:goto5210
  713. 5231 gosub2015:pokev,q:goto5210
  714. 5240 m=m+1:ifm>57thenm=48
  715. 5241 gosub2020:poke49152+l,m:poke55296+l,1:goto5210
  716. 5250 m=m-1:ifm<48thenm=57
  717. 5251 gosub2020:poke49152+l,m:poke55296+l,1:goto5210
  718. 5260 z=0:t=.1:fork=0to4:b=peek(49507-k):b=b-48:t=t*10:b=b*t:z=z+b:next
  719. 5261 ifz<=wa1(a)then5264
  720. 5262 gosub2025:x=2:y=10:gosub9999:print"    das ist unmoeglich !    "
  721. 5263 forl=1to1600:next:goto5265
  722. 5264 b=z:wa1(a)=wa1(a)-z:pokev,0:pokev+1,0:goto5300
  723. 5265 x=3:y=10:gosub9999:print"                       "
  724. 5266 x=31:y=8:gosub9999:print"00000":goto5208
  725. 5300 print"[147]":poke53269,0:gosub2090:x=3:y=1:gosub9999:gosub2090
  726. 5301 fori=1to38:printmid$("[144]** [159]die ernte und die wirtschaft [144]**",i,1);
  727. 5302 fork=1to19:nextk,i
  728. 5303 x=11:y=3:gosub9999:fori=1to18:printmid$("[159]fuer diesen monat",i,1);
  729. 5304 fork=1to20:nextk,i
  730. 5305 x=0:y=4:gosub9999:zz(a)=0
  731. 5306 print"****************************************";
  732. 5307 fori=160to200step2:poke55296+i,7:poke55296+i+1,0:next
  733. 5310 p=0:p=p+ol(a)*20:p=p+ta(a)*20:p=p+tp(a)*25:p=p+dp(a)*40
  734. 5311 q=0:q=q+ol(a)*10:q=q+ta(a)*10
  735. 5312 ifp<=ar(a)thena$="[158]sie hatten genug arbeiter":goto5314
  736. 5313 l=p:l=l-ar(a):a$=""
  737. 5314 ifq=<fa(a)thenb$="[158]sie hatten genug facharbeiter":goto5316
  738. 5315 m=q:m=m-fa(a):b$=""
  739. 5316 ifb$<>""thenx=4:y=6:gosub9999:printb$:goto5318
  740. 5317 x=4:y=6:gosub9999:print"[158]ihnen fehlten"m"[158]facharbeiter"
  741. 5318 ifa$<>""thenx=4:y=7:gosub9999:printa$:goto5320
  742. 5319 x=4:y=7:gosub9999:print"[158]ihnen fehlten"l"[158]arbeiter"
  743. 5320 b=z:b=b*100:b=b/bw(a):c=int(b):q=q*2:e=1:e=e+q+p:z=ar(a):z=z+fa(a)
  744. 5321 print"[158] ihre felder wurden zu"c"%[158] bewaessert"
  745. 5322 print" das ihnen zur verfuegung gestandene":f=z:f=f*100:f=f/e:h=int(f)
  746. 5323 print" potential an arbeiter und facharbeiter":ifh>100thenh=100
  747. 5324 print" ermoeglichte eine ausbeute von"h"%
  748. 5328 za[178](2[172]c)[170](h[172]4):za[178]za[173]3
  749. 5330 da[178][181]([187](1)[172]350)[170]1:l[178]da[172]za:l[178]l[173]100:r[178]da[171]l:da[178]da[171]r:[139]da[179]1[167]da[178]0
  750. 5331 da[178]da[172]dp(a):da[178][181](da):da1(a)[178]da1(a)[170]da
  751. 5340 tl[178][181]([187](1)[172]250)[170]1:l[178]tl[172]za:l[178]l[173]100:r[178]tl[171]l:tl[178]tl[171]r:[139]tl[179]1[167]tl[178]0
  752. 5341 tl[178]tl[172]tp(a):tl[178][181](tl):op[178]ta(a)
  753. 5342 k[178]ta(a)[172]4:[139]k[177]tp(a)[167]op[178]tp(a)[173]4
  754. 5343 [139]tp(a)[178]0[167]5359
  755. 5345 d[178]op[173]tp(a):d[178]d[172]4:tl[178]tl[172]d:tl[178][181](tl)
  756. 5346 zi1(a)[178]zi1(a)[170]tl
  757. 5359 kl[178]h:kl[178]kl[172]2
  758. 5360 ol[178][181]([187](1)[172]150)[170]1:l[178]ol[172]kl:l[178]l[173]100:r[178]ol[171]l:ol[178]ol[171]r:[139]ol[179]1[167]ol[178]0
  759. 5361 ol[178]ol[172]ol(a):ol[178][181](ol):oe1(a)[178]oe1(a)[170]ol
  760. 5400 m1[178][181]([187](1)[172]10)[170]5:n1[178]m1[172]ar(a)
  761. 5401 m2[178][181]([187](1)[172]40)[170]20:n2[178]m2[172]fa(a)
  762. 5500 [153]"open der wirtschatfsbericht :
  763. 5501 print"  [158]sie ernteten dattelobst :"da"t
  764. 5502 [153]" syssie erzeugten zigaretten :"tl"stn.
  765. 5503 print"    [158]sie foerderten erdoel :"ol"bar.
  766. 5504 [153]"open die gehaelter :
  767. 5506 print"[158]       arbeiter :$"m1""
  768. 5507 print"[158]   facharbeiter :$"m2"";
  769. 5508 x=22:y=23:gosub9999:print"'"ar(a)""
  770. 5509 x=22:y=24:gosub9999:print"'"fa(a)"";
  771. 5510 x=29:y=23:gosub9999:print"= $"n1""
  772. 5511 x=29:y=24:gosub9999:print"= $"n2"";:ge(a)=ge(a)-(n1+n2)
  773. 5520 j=peek(56320):ifj=111then949
  774. 5521 goto5520
  775. 7000 pokev+9,50:print"[144]        [146]                                [146]";
  776. 7001 ifmo(a)=13thenmo(a)=1:ja(a)=ja(a)+1
  777. 7002 pokev+8,89:pokev+43,10:poke50172,22:restore:b=0
  778. 7003 b=b+1:reada$:ifb=mo(a)thenreadj$:goto7005
  779. 7004 goto7003
  780. 7005 printspc(9)""n$(a)""
  781. 7006 x=18:y=1:gosub9999:print""j$"";:x=26:y=1:gosub9999:print""ja(a)"":return
  782. 8900 b=peek(c):ifb=65orc=73orc=77orc=81then4170
  783. 8901 pokec,32:ge(a)=ge(a)-(2000*mu(a)):goto4126
  784. 9000 print"[147][153]":poke53281,3:poke53282,0:poke53283,8:printchr$(14):poke53269,0
  785. 9001 b=1:poke53264,0:ge(a)=ge(a)-35000
  786. 9002 b=b+1:ifb=2thenload"roc*",8,1
  787. 9006 print"                                  df":poke54296,0
  788. 9007 print"                           defaf a[194][195]abc
  789. 9008 [153]"                astr$valf  aefdeasch(NULL)vatnpeeklenstr$valascw(NULL)d";
  790. 9009 [153]"              dascatnvalasc(NULL)dfghright$chr$w(NULL)atnpeeklenchr$v(NULL)(NULL)vright$atnascchr$";
  791. 9010 [153]"-expusr  usrand and-=<expprintdpeekasc(NULL)wright$atnlenstr$peekascatnvalascasc(NULL)wright$atnascvpeeklenatnlenchr$h";
  792. 9011 [153]"           apeeklenvstr$peekascstr$valascchr$vright$(NULL)vright$peeklenatnpeeklenstr$valasc(NULL)vatnvalasc";
  793. 9012 [153]"bc    stoppos  printdeascstr$valasc(NULL)v(NULL)gvstr$valascatnvalascvalascright$str$valascchr$h(NULL)atnvalascwp";
  794. 9013 [153]"str$valf  stopget+  printghright$qvpatnpeekascvright$vhpchr$hivpv(NULL)vstr$valascatnpeekvalchr$w(NULL)";
  795. 9014 [153]"chr$hi stopgetabs   printm(NULL)(NULL)(NULL)v(NULL)ghright$chr$right$(NULL)w(NULL)mid$(NULL)(NULL)hright$str$valascchr$hright$(NULL)wright$mid$(NULL)(NULL)";
  796. 9015 [153]"(NULL)(NULL)ostoprndfnsgnnewint  printt(NULL)(NULL)(NULL)(NULL)mid$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)t(NULL)(NULL)(NULL)gwright$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)t(NULL)";
  797. 9016 [153]"(NULL)t verifyorsinsinlog*>listd231u(NULL)(NULL)t(NULL)(NULL)t(NULL)t3453t(NULL)mid$(NULL)(NULL)(NULL)t(NULL)(NULL)t(NULL)(NULL)t(NULL)";
  798. 9017 [153]"45668490989^4561t3234t8871231t36t3123456";
  799. 9018 [153]"07__^7_^_0^_807123984568^^_8426456987_70";
  800. 9019 [153]"^____^____8__0____7_^__^_8__0_08_07^_0_";:[151]50151,31:[151]56295,7
  801. 9020 v[178]53248:[151]v[170]21,31:[151]v[170]4,0:[151]v[170]6,0:[151]v[170]8,0:[151]v[170]28,0
  802. 9021 [151]50168,30:[151]v,48:[151]v[170]1,196:[151]v[170]39,0:[151]v[170]23,0:[151]v[170]29,0
  803. 9022 [151]50169,31:[151]v[170]2,48:[151]v[170]3,196:[151]v[170]40,11:[151]56325,60
  804. 9023 [151]v[170]41,7:[151]v[170]42,2:[151]v[170]43,8
  805. 9024 [151]50170,35:[151]50171,34:[151]50172,33
  806. 9030 [129]i[178]1[164]2000:[130]
  807. 9031 [151]820,0:[158]860:[151]v[170]21,31:[141]9070
  808. 9032 [151]50170,34:[151]50171,33:[151]50172,32:[141]9060
  809. 9033 [151]50170,33:[151]50171,32:[151]50172,35:[141]9060
  810. 9034 [151]50170,32:[151]50171,35:[151]50172,34:[141]9060
  811. 9035 [151]50170,35:[151]50171,34:[151]50172,33:[141]9060
  812. 9036 b[178][194](820):[139]b[178]1[167]9045
  813. 9037 [137]9032
  814. 9045 [151]53265,65:[153][199](142):[151]si[170]22,10:[137]9100
  815. 9060 [129]i[178]1[164]10:[130]:j[178]j[171]1:[151]si[170]22,j:[142]
  816. 9070 si[178]54272:[151]si[170]23,243:[151]si[170]24,31:[151]si[170]22,80:j[178]80
  817. 9071 [151]si[170]5,0:[151]si[170]4,0:[151]si[170]11,0:[151]si[170]18,0:[151]si[170]12,0
  818. 9072 [151]si[170]6,240:[151]si[170]13,160:[151]si[170]4,129:[151]si[170]11,129
  819. 9073 [151]si[170]1,15:[151]si[170]8,25:[142]
  820. 9100 [151]2023,1[170]z:[141]4001:g[178]1
  821. 9101 x[178][181]([187](1)[172]19)[170]1:y[178][181]([187](1)[172]11)[170]1:d[178]y:y[178]y[172]16:d[178]d[172]20[170]x
  822. 9105 [151]v[170]21,3:[151]v[170]39,0:[151]v[170]40,0:[151]50168,36:[151]50169,37
  823. 9106 y[178]y[170]45:[151]v[170]1,y:y[178]y[170]8:[151]v[170]3,y
  824. 9107 c[178]0:b[178]x[172]16:e[178]x[172]16[170]16:f[178]0
  825. 9108 [151]v,c:[151]v[170]2,f[170]16:c[178]c[170]2:f[178]f[170]2:[139]c[178]238[167][151]v[170]16,2:f[178]238:[137]9120
  826. 9109 [139]c[178]e[167]9140
  827. 9110 [139]c[177]b[167]y[178]y[171]1:[151]v[170]3,y:f[178]f[171]2
  828. 9111 [137]9108
  829. 9120 [151]v,c:[151]v[170]2,f[171]238:c[178]c[170]2:f[178]f[170]2:[139]c[178]254[167][151]v[170]16,3:[137]9130
  830. 9121 [139]c[178]e[167]9140
  831. 9122 [139]c[177]b[167]y[178]y[171]1:[151]v[170]3,y:f[178]f[171]2
  832. 9123 [137]9120
  833. 9130 [151]v,c[171]254:[151]v[170]2,f[171]238:c[178]c[170]2:f[178]f[170]2
  834. 9131 [139]c[178]e[167]9140
  835. 9132 [139]c[177]b[167]y[178]y[171]1:[151]v[170]3,y:f[178]f[171]2
  836. 9133 [137]9130
  837. 9140 [151]53281,1:[151]si[170]22,90:[151]si[170]4,0:[151]si[170]5,45:[151]si[170]6,0:[151]si[170]11,0
  838. 9141 [151]si[170]4,129:[151]si[170]1,8
  839. 9142 [151]v[170]21,1:[151]53281,7:[129]i[178]38[164]57:[151]50168,i:[129]k[178]1[164]16
  840. 9143 [151]v[170]39,k:[130]:[130]:[151]v[170]21,0
  841. 9150 c[178]1024[170](250[172]z):c[178]c[170]d:h[178][194](c):[151]c,32:[158]34816
  842. 9151 [139]h[178]65[167]dp(z)[178]dp(z)[171]1
  843. 9152 [139]h[178]69[167]ol(z)[178]ol(z)[171]1
  844. 9153 [139]h[178]73[167]tp(z)[178]tp(z)[171]1
  845. 9154 [139]h[178]77[167]ta(z)[178]ta(z)[171]1
  846. 9155 [139]h[178]81[167][151]c,81
  847. 9156 g[178]g[170]1:[139]g[178]4[167]9158
  848. 9157 [151]v[170]16,0:[141]9070:[151]si[170]22,10:[137]9101
  849. 9158 [151]v[170]21,0:[129]i[178]1[164]1000:[130]:[151]53265,65
  850. 9159 [151]si[170]24,0:[151]v[170]21,255:[151]v[170]39,1:[151]v[170]16,0
  851. 9160 [151]si[170]23,240:[151]v[170]29,240:[137]3000
  852. 9999 [151]211,x:[151]214,y:[158]58640:[142]
  853. 10000 [143] pfaendung
  854. 10001 [151]53269,254:[153]"load":[141]7000:[151]53281,11:[151]v,0
  855. 10002 [153]"sys   oh weh !! eine schlechte nachricht
  856. 10003 print"   fuer ihr unternehmen ....
  857. 10004 [153]"   sie haben sich mit ihren openschulden
  858. 10005 print"   [158]leider uebernommen !!
  859. 10006 [153][163]5)"die pfaendung wird vorgenommen
  860. 10007 printtab(5)"[156]******************************
  861. 10008 [153]"sys ihre verluste :
  862. 10009 print"   dattelplantagen :"dp(a)""
  863. 10010 print"    tabakplantagen :"tp(a)""
  864. 10011 print"     tabakfabriken :"ta(a)""
  865. 10012 print"         oelfelder :"ol(a)""
  866. 10013 print"         vermoegen :$"ge(a)"":poke53265,155
  867. 10020 b=1024+a*250:j=0
  868. 10021 c=peek(b):ifc=65thenge(a)=ge(a)+1000:dp(a)=dp(a)-1:pokeb,32:goto10040
  869. 10022 b=b+1:j=j+1:ifj=250then10024
  870. 10023 ifdp(a)>0then10021
  871. 10024 b=1024+a*250:j=0
  872. 10025 c=peek(b):ifc=73thenge(a)=ge(a)+1500:tp(a)=tp(a)-1:pokeb,32:goto10050
  873. 10026 b=b+1:j=j+1:ifj=250then10028
  874. 10027 iftp(a)>0then10025
  875. 10028 b=1024+a*250:j=0
  876. 10029 c=peek(b):ifc=77thenge(a)=ge(a)+6000:ta(a)=ta(a)-1:pokeb,32:goto10060
  877. 10030 b=b+1:j=j+1:ifj=250then10032
  878. 10031 ifta(a)>0then10029
  879. 10032 b=1024+a*250:j=0
  880. 10033 c=peek(b):ifc=69thenge(a)=ge(a)+5000:ol(a)=ol(a)-1:pokeb,32:goto10070
  881. 10034 b=b+1:j=j+1:ifj=250then10036
  882. 10035 ifol(a)>0then10033
  883. 10036 print"[158] ihre firma hat konkurs angemeldet !!!
  884. 10037 oe1(a)[178]0:da1(a)[178]0:zi1(a)[178]0:ge(a)[178]10000:mu(a)[178]1:in(a)[178]0:ki(a)[178]0
  885. 10038 i[178](a[172]250)[170]1024:j[178](a[172]250)[170]1274:[129]b[178]i[164]j:[151]b,0:[130]:[137]10103
  886. 10040 [141]2047:x[178]20:y[178]16:[141]9999:[153]""dp(a)"":[139]dp(a)[179]10[167][151]49814,32
  887. 10041 [141]10080:[139]ge(a)[179]f[167]10022
  888. 10042 [137]10100
  889. 10050 [141]2052:x[178]20:y[178]17:[141]9999:[153]""tp(a)"":[139]tp(a)[179]10[167][151]49854,32
  890. 10051 [141]10080:[139]ge(a)[179]f[167]10026
  891. 10052 [137]10100
  892. 10060 [141]2060:x[178]20:y[178]18:[141]9999:[153]""ta(a)"":[139]ta(a)[179]10[167][151]49894,32
  893. 10061 [141]10080:[139]ge(a)[179]f[167]10030
  894. 10062 [137]10100
  895. 10070 [141]2060:x[178]20:y[178]19:[141]9999:[153]""ol(a)"":[139]ol(a)[179]10[167][151]49934,32
  896. 10071 [141]10080:[139]ge(a)[179]f[167]10034
  897. 10072 [137]10100
  898. 10080 x[178]21:y[178]21:[141]9999:[153]"         ";:x[178]21:y[178]21:[141]9999:[153]""ge(a)""
  899. 10081 [142]
  900. 10100 [153][163]5)" o.k ihr schuldenlimit wurde
  901. 10101 printtab(10)"wieder erreicht !!!";
  902. 10102 gosub2050:fori=1to1000:next
  903. 10103 j=peek(56320):ifj=111thenpoke53281,8:p=0:goto999
  904. 10104 goto10103
  905.